00010	C  THIS PLOTS ON CALCOMP (OR TO XGP) STUFF FROM MDSK.DMP(DO PRNTX]
00055	C  LOAD WITH MSSIO.FAI(USES OK CHANS.) & LOOK.FAI (FOR UNPAC ROUTINE)
00100		COMMON I,J,K
00200		DIMENSION M(128)
00300		CALL PLOTS(N)
00350		CALL GETFI2('PLT')
00400	1	CALL FASTI2(M,128)
00500		DO 3 JJ=2,M(1)+1
00550		CALL UNPAC(M(JJ),I)
00555	CC	J=M(JJ)
00556	CC	K=J/100000000
00557	CC	J=J-K*100000000
00558	CC	I=J/10000
00580	CC	J=J-I*10000-5000
00581	CC	I=I-5000
00585	CC	K=K-4
00590	C  I  IS FIRST OF THREE LOCATIONS.
00600	3	CALL PLOT(I,J,K)
00700		IF(M(1).EQ.127)GO TO 1
00800		TYPE 2
00900	2	FORMAT(' DON''T FORGET "PLT.DMD" ON DSK.')
01000		END